home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / menu0174.zip / RSB5MENU.MRG < prev   
Text File  |  1992-06-23  |  1KB  |  29 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against C:\RBBS\SOURCE\STOCK\RBBSSUB5.BAS to produce RBBSSUB5.BAS
  3. * C:\RBBS\SOURCE\STOCK\RBBSSUB5.BAS:  Date 6-20-1992  Size 116575 bytes
  4. * ------------[ Created 06-23-1992 02:00:38 ]------------
  5. * REPLACING old line(s) by new
  6. 63640 ' * Welcomes caller on
  7.       SUB SayWelcome STATIC
  8. * ------[ first line different ]------
  9.       LOCATE 24,1,1                                                  ' DD062201/MENU0
  10.       CALL AMorPM
  11.       ZUserLogonTime! = TIMER
  12.       ZTimeLoggedOn$ = TIME$
  13.       ZLinesPrinted = 0
  14.       ZExpertUser = ZFalse
  15.       CALL SetExpert
  16.       ZOutTxt$ = ""
  17.       IF ZMaxNodes > 1 THEN _
  18.          ZOutTxt$ = " - Node " + ZNodeID$
  19.       IF ZReliableMode THEN _
  20.          ZOutTxt$ = ZOutTxt$ + " (Reliable)"
  21.       CALL QuickTPut1 ("Welcome to " + ZRBBSName$ + ZOutTxt$)
  22.       CALL TestANSI
  23.       ZTestParity = ZTrue
  24.       ZStopInterrupts = ZTrue
  25.       ZFileName$ = ZPreLog$
  26.       CALL FlushCom (WasX$)
  27.       ZCommPortStack$ = ""
  28.       END SUB
  29.